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AIF XVARIANT EOL 1 

yp] ADDRESSING.MODE (EXTERNAL = LONGRELATIVE, NONEXTERNAL = LONG RELATIVE), 
IDENT = *VO4-000" 


BEGIN 


RRR SSESOSSLS SESE TESST EET E TEE E TTT CTC CSC CPPCC CSS CCPC S CC Cec CeCe eee aa e 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
* 
* 
® 
® 
4 t 
it THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE ® 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, TRIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. * 
® 
* 
* 
® 
* 
® 
« 
a 
* 
* 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
.* oomeokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* a 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


lee eee eee REAR AAR AA RATATAT TAKE eee eeAReeeeeeeKeeeeeteeteneene 
' 


lee 


! FACILITY: PATCH 
i ABSTRACT: RST routines used primarily to rebuild RST data structures. 


i ENVIRONMENT: This module runs on VAX under VAX/VMS, user mode, non-AST level. 


i Author: Kevin Pammett, August 12, 1977. 
i Version: v02-008 
v03-001 mMTROOI2 Mike Rhodes 16-Aug-1982 


Modify file names to remove duplicate file name useage 
between code and require files. 


v02-008 PCG0001 Peter Geo 
Add require statement for 


rge 02-F FB-1981 
IBS:PATDEF .REQ 
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i MODIF CATIONS: 


' 
' 
' 
' 
' 
' 
' 
' 
' 
i 
! 
i MODIFIED BY: 
' 
! 
' 
' 
'! 
' 
' 
' 
i WO DATE PROGRAMMER PURPOSE 
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PATREB 15-5 Sep-1984 VAX=11 Bliss-32_ V4.0-742 2 | PAT! 
"04-000 1e-8epn 1986 2:53:46 DISKSVMGMASTERSCPATCH SACIPATRER.B3204°° (15 v04 
; #59 059 3! | 
3 © 0066 i! 99 2-DEC=77 K.D. MORSE ADAPT VERSION 36 FOR PATCH | 
3 «66 0061 1! 01 24=JAN-78 K.D. MORSE ADD ERROR MSG PATS MODNOTADD (37). ia | 
3 § 006 1. 02 28-JAN-78 K.D. MORSE SET_MODULE NOW WORRS FROM 
c: € 0063 1! COMMAND ARGUMEN’ L 
; 64 0064 1 | OR FROM AN MC POINTER. (38) 
; 0065 1! T_MODULE AND CANC MODULE 
>; 66 0066 1! UNDERSTAND /ALL. (39) | 
; 24 Boer : THE SAI/LVT_ ACCESSING LOGIC WAS 
> «669 069 1! PERFORMANCE IMPROVEMENT. (40) 
; £0 070 1! 03 04-APR-7 K.D. MORSE NO CHANGES FOR 41. ! 
; 2 0071 1! 04 18-APR-7 K.D. MORSE CHANGE NXT_SAT_LVT TO ! 
es 0072 1! GET_NXT SAT _LVT AND MADE ACCESS 
Bae 0073 1! TO TT INCLUBE THE RECORD SiZE. 42 
ee 0074 1! UT IN SET AND CANCEL /ALL MODU. 43 
; 75 0075 1! 05 25-APR-78 K.D. MORSE CONVERT TO NATIVE COMPILER. 
; 76 0076 1! 06 18-MAY-78 K.D. MORSE CANCEL 100 DULE ALSO NOT CAUSES 
oe ee beerindsane Mcggue® IF 621m 
; # 0079 1! NO CHANGES FOR VERS 45. 
; a0 9080 | 07 13-JUN-78 K.D. MORSE ADD FAO COUNTS TO SIGNALS. 
: B2 0082 1 i-- 


F 4 
PATREB 16-Sep-1984 01 95:57 VAX=11 Bliss-32 V4.0-742 3 PAT! 
v04-000 14-Sep-1984 12:52:44 DISKSVMSMASTER: CPATCH.SRCJPATREB. B32" 79 * 2) v04 
> 84 0083 1! . 3 
: 85 0084 1 ! TABLE OF CONTENTS: $ | 
; = 0085 1! : 
; oF 0086 1 3 
: 88 0087 1 FORWARD ROUTINE . | 
; 0088 1 PATSGET_NXT_SAT, ! Provide access to the SAT . | 
eS Se 0089 1 PATSGET_NXT_LVT, ! Provide access to the LVT ; 
oe: 0090 1 GET_NXT-SAT-LVT, : Parameterized access to SAT/LVT. : 
ot 0091 1 PATSSET-MODOLE : NOVALUE ' Add a <module List> to the RST. 3 
: 9 0092 1 PATSCANC_MODULE : NOVALUE, i Delete a <module list> from the RST. 
F 94 0093 1 PATSSORT rc LVT : NOVALUE, ' Sort the LVT or SAT vector. 
; 95 0094 1 DELE_SAT ' Mark SAT or LVT records for deletion. 
: 96 0095 1 EMPTY_SAT tive : NOVALUE, i Remove the SAT/LVT T portion of a 
ee 2 0096 1 ' module from the R 
; BS 6944 : UNLINK_NT_RECS : NOVALUE; ! Remove NTs from hash chains. 
: 100 0099 1! 
s 101 0100 1 ! INCLUDE FILES: 
3 oe 0101 1! 
; 10 Bins 1 
; 104 010 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
: 105 0104 1 REQUIRE ‘SRC$:PATPCT.REQ'; : . 
; 106 0144 1 REQUIRE ‘LIBS:PATDEF.REQ'; ! Defines Literals 
: 107 0198 1 REQUIRE ‘LIB$:PATMSG.REQ'; 
; 108 0372 1 REQUIRE ‘SRC$:VXSMAC.REQ' 
; 109 0437 1 REQUIRE 'SRC$:BSTRUC.REQ'; 
; 110 0513 1 REQUIRE ‘SRC$:LISTEL.REQ' 
. 39% 0555 1 REQUIRE ‘SRC$:PATGEN.REQ’; 
.. iz 0777 1 REQUIRE ‘SRCS$:PATRTS.REQ'; 
‘> 335 1873 1 REQUIRE ‘SRC$:SYSSER.REQ'; 
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1eu3e0- 1986 91:93:37 VAX-11 Bliss-32 V4.0-742 5 
14-Sep-1984 12:52:44 DISKSVMSMASTER: (PATCH. SRC JPATREB. B32, hed (2) 
MACROS: 


EQUATED SYMBOLS: 


EXTERNAL REFERENCES: 


EXTERNAL 
PATSGL_CONTEXT : BITVECTOR, | CONTEXT QUALIFIER BITS, (/ALL) 
PATSGL_RST_BEGN, i ADDRESS OF START OF RST 
PATSGL =CSPEPTR i REF PATHNAME VECTOR, | etater Se the gurvent scorn’ 
PATSGL-MC_PTR : REF MC_RECORD, i Pointer to the Module Chain (MC). 


PATSGL “HERD LST; pointer to expression arg List. 


EXTERNAL PATSADD, nop 


Le ULE, 
SPREE. : NOVALUE, 
PATSSAVE SCOPE; 


Add a module's — to the RST. 
Release vector sto wee 
CANC MODU may Poe ANC SCOPE 
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; Routine Size: 


; Routine Size: 


1b-se -Sep-1984 ; 91: 93:3 


14-Sep-1984 


1380 1 gt pent ROUTINE PATSGET_NXT_SAT( ACCESS_FLAG) = 
1982 § RETURN( GET_NXT_SAT_LVT( .ACCESS_FLAG, RST_SAT_SIZE )); 
198 END; 
- TITLE 
- IDENT 
~EXTRN 
-EXTRN 
-EXTRN 
-EXTRN 
-EXTRN 
-EXTRN 
« WEAK 
PSECT 
0000 00000 -ENTRY 
OA DD 00002 PUSHL 
04 AC DD 00004 PUSHL 
00000000V_ EF 02 FB 00007 CALLS 
04 0000E RET 


15 bytes, Routine Base: _PATSCODE + 0000 


ee ROUTINE PATSGET_NXT_LVT( ACCESS_FLAG ) = 


4 1 
5 1 

6 16L 
? 2 BEG 
8 2 RETL ETURN( GET_NXT_SAT_LVT( .ACCESS_FLAG, RST_LVT_SIZE )); 


0000 00000 -ENTRY 
06 dD 00002 PUSHL 
04 AC DD 00004 PUSHL 
00000000V_ EF 02 FB 00007 CALLS 
04 0000E ET 


15 bytes, Routine Base: _PATSCODE + OOOF 
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PATREB 
\V04-000\ 


hE OUT, PATSGL_CONTEXT 
PATSGL_ c3he PTR, PATSGL_MC_PTR 
PAT$GL HEAD LST 

PATSADB *RODOLE. PAT$VS_FREE 
PATSSAVE_SCOPE 

ACCESS_ CRECK 


_PATSCODE ,NOWRT ,2 
PATSEEt -NXT_SAT, Save nothing :; 1980 
#10 : 1982 
ACCESS_FLAG 3 
#2, GET_ NXT _SAT_LVT : 
: 1983 


sep NXT_LVT, Save nothing 3 
ACCESS_FLAG : 
#2, GET_ xt _SAT_LVT $ 


<v 
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—PATR 16-Sep-1984 01:05:57 VAX-11 Bliss-32 V4.0-742 Page 7 
_V04G~ 12-808 1382 93:83 20 DISKSVMSMASTER: [PATCH, SRCJPATREB.B32:1> (4) 
1 990 ROUTINE GET_NXT_SAT_LVT( ACCESS_FLAG, RECORD_SIZE ) = 
§ 938 \++ 
: oa7 ! Functional Description: 
$ 995 Provide access to the RST SAT or LVT structures. 
5 4 -e. Allow sequential access to the SAT/LVT via 
és 99 successive calls to this ‘ma ping" routine 
9 998 so that the accessor has no built-in notion of 
<1 44 just how this sequential access is achieved. 
6¢ 001 Formal Parameters: 


access_flag - One of three (3) possible values which indicate 

what Eype of access this is. 

SA_ACCE_INIT - Initialize the OWN pointers for further 

access. 
SA_ACCE_RECS - Return the next record in the structure, 
SA_ACCE_FREE - Return the next record marked for deletion 
: that is not in a module about to be deleted. 

record_size = The number of bytes in the record structure being accessed. 


Implicit Inputs: 


This routine defines how the SAT and LVT are accessed 
sequentially. This definition must correspond to the one 

that is also ‘built-in’ in the routine DBGSSORT_SA_LVT. 

The latter does not use this routine's defintion because 

of the performance penality we pay to do it. (all the CALLSes) 


Some other routines also access the S\T/LVT ‘on their own’, 
but they restrict themselves to only looking at one storage vector's 
contribution to the SAT/LVT. 


The MC storage descriptors for all MCs marked MC_IN_RST 
(this includes the one for globals) must be consistent. 


WN "SO OCONOUF WN —"OOO~ 


Implicit Outputs: 


OCONOWM 


none. 


ee ee ee ed ot nd od od wd 
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me ee ee 8 8 od od od dd 


1 
¢ Routine Value: 
4 0, when there are no more SAT or LVT records given the 
5 indicated ending criteria, : 
Otherwise, a pointer to the appropriate record. 
198 On the _INIT call, this routine returns the number of 
199 bytes in the SAT/LVT record which the _INIT 
$00 ? was done for. 
202 04 Side Effects: 
it 04 ; 
04 04 The SAT or LVT is accessed sequent tor ty. 
05 04 OWN storage is initialized and used. 
06 04 -- 
07 204 
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| PATREB 
V04~600 
: 208 047 
; 209 048 
3 10 049 
Be 
; ig $26 
; 214 05 
; 215 054 
3 16 055 
Si er 2056 
; 218 057 
; 219 $28 
; 220 59 
s de) 2060 
Be Be 
5 $$? $608 $ 
3 €e3 2064 2 
: 226 2065 § 
; 2e7 2066 
; 228 2067 2 
: 229 2068 2 
: 230 2069 2 
s 231 2070 2 
3 see sor 
3 2s Ore 
: 234 207 
3; @35 2074 2 
3; 2s 2075 3 
: 237 2076 3 
; 238 2077 ; 
; 239 2078 
: 240 2079 3 
i 241 2080 3 
; 26 2081 3 
: 24 2082 3 
> 266 083 3 
3: 245 084 2 
; 246 085 2 
3; 247 2086 § 
; 248 2087 
3; 249 088 § 
; 250 089 
3 $2! 090 
3 26 091 
: $2 092 
: 554 093 
3 @29 094 
: 256 2095 
3 744 096 
g 58 097 4 
3; 259 098 
; 260 099 
; 261 100 
3 66 101 
$ 6 3 
; 264 10 


K 
1e~309" 138% 91 5 
14-Sep-1984 12:52 
BEGIN 
LABEL 
NEXT_MC_LOOP; 
OWN 
LAST_PTR : REF SAT_RECORD, 
MC_PTR : REF MC_RECORD; 
LOCAL 
STORE_DESC : REF VECT_STORE_DESC, 
CURRENT, 


CURRENT_SAT_PTR : REF SAT_RECORD; 


ee 


! Initialization mode processing is simple and contained. 


' new context. 


if (.access_flag EQL SL_ACCE_INIT) 
THEN 
BEGIN 


‘ee 
' Set up so that the next call will find the 


! first LVT or SAT record given the access criterion. 


NC PTR = PATSGL_MC_PTR: 
RETURN(.RECORD_SIZE); 
END; 


tee 


! Iterate to set ‘current’ and ‘current_sat_ptr’ to point to 


! the next record we want to consider. 


REPEAT 
NEXT_MC_LOOP: 
BEGIN 


lee 
! Once we run off the end of the module chain 
! there is no more of any kind of storage. 


iF (.MC_PTR EQL 0) AND (.LAST_PTR EQL 0) 
RETURN(O); 


‘ee 
See if this module is a possible candidate. 


Ze V4.0-742 


liss- -0- Page 8 
MASTER: CPATCH.SRCJPATREB.B32;1 (4) 


Pointer to the record we returned on 
the previous call to this routine. 
Module that LAST_PTR was in. 


Pointer to the storage descriptor for the 
type of storage we are currently looking 
We keep two pointers to the SAT or LVT 
record currently under consideration. 
One, ‘current’, is NOT a SAT_POINTER becau 
such Longword pointers aren't easily compa. 
to the Ni-pointers we get from storage des. 
The other, ‘current_sat_ptr’® is a real SAT. 
pointer which always corresponds to ‘curre 


We simply set up a 


! Return the record size so that we can 
! Localize this knowledge to this routine. 


- —_ — ———————————— — 7 — — _ —_—_— _ ———$ 
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“VO4~600 127808- 138 93:83 2 DISKSVMSMASTER: CPATCH. SRCIPATREB.B32: 1° (4) 
IF .MC_PTRCMC_IN_RSTJ 
THEN 
BEGIN 
lee 
! The _FREE access type asks that we look only at 
! MCs which are both _IN_RST and NOT _DYING. 
Hf gcaccess_t lag EQL SL_ACCE_FREE) 
IF .MC_PTRCMC_IS_DYINGJ 
THEN 
BEGIN 
e+ 
! This module is soon to be deleted 
! so there is no _FREE storage therein. 
! Skip over this module completely. 


MC_PTR = .MC_PTR CMC_NEXT]; 
LERVE NEXT_MC_LOOP; 


ee 
' See if this module has any of the kind 
of storage we are looking for. 


STORE_DESC = (IF (.RECORD_SIZE EQL RST_SAT_SIZE) 
THEN MC_PTR CMC_SAT_STORAGE] 

$3 ELSE MC_PTRCMC_CVT_STORAGE)); 

ee 

No storage is allocated if the ‘begin’ field is null. 


If (-STORE_DESC CSTOR_BEGIN_RST] NEQ 0) 
BEGIN 


lee 
! Found the right place to look. Point 
to the next record within this module. 


if (.LAST_PTR EQL 0) 
THEN 


ee 
First time thru we start at the beginning 


CURRENT = .STORE_DESC CSTOR_BEGIN_RST] 


lee 


ELSE 


! Subsequent times thru we assume that | 
! the records are contiguous and fixed-size. 


CURRENT = .LAST_PTR + .RECORD_SIZE; 


lee 

! The ‘current’ pointer must be within range and it 

! must point to a record we are interested in, given 
! the access criteria. Loop thru the storage for this 
! module as long as there are still some to look at. 


ee ee ee et ed at td ot 
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¢ 161 5 leo H 
16 IF ( : 

i 188 5 (WHILE( .CURRENT LSSA .STORE_DESC CSTOR_MARKER] ) : 
26 165 4 BEGIN : 
7 166 '++ F 
28 167 8 ! Initialize the SAT_POINTER which : 
4 168 8 ! corresponds to ‘current’. 3 
330 169 8 leo : 
331 2170 8 CURRENT_SAT_PTR = .CURRENT + .PATSGL_RST_BEGN; 3 
226 171 8 : 
33 \v¢ 8 ++ 3 
4 175 8 ! As long as we are in range, we can imply skip $ 
335 2174 8 ! along successive records until we get one ; 
336 2175 8 ' which satisfies the given access criteria. ; 
337 2176 8 leo 3 
338 2177 9 IF (.access_flag EQL SL_ACCE_RECS) $ 
339 2178 8 THEN $ 
340 2179 9 BEGIN : 
341 2180 9 ++ 3 
342 2181 9 ! Skip records which are marked. : 
343 2182 9 ! for deletion. Anything else is OK. : 
344 2183 9 l—= : 
345 2184 10 IF (.CURRENT_SAT_PTR CSAT_NT_PTR] NEQ 1) | ; 
346 2185 9 TH ; 
347 2186 9 EXITLOOP( TRUE); 3 
348 2187 9 END 3 
349 2188 8 ELSE : 
350 2189 8 3 
351 2190 BEGIN : 
352 2191 9 ++ 3 
353 2192 9 ! The _FREE mode asks only for deleted : 
See $137 ; ! records in NOT _DYING modules. : 
356 2195 10 if (.CURRENT_SAT_PTR CSAT_NT_PTRJ EQL 1) ; 
357 2196 9 T 3 
358 2197 9 EXITLOOP( TRUE); 3 
359 2198 8 END; 3 
360 2199 8 3 
361 2200 8 io 3 
362 2201 8 ! Skip along to the next record. s 
363 2202 8 len : 
364 2203 8 CURRENT = .CURRENT + .RECORD_SIZE; : 
#03 $soe 8 3 
66 205 6 ) EQL TRUE 3 
367 2206 6 i 3 
368 2207 5 THEN ; 
369 2208 5 '++ , ; 3 
370 2209 5 ! We have found a valid record in the current module. : 
371 2210 5 ated 3 
372 2211 5 EXITLOOP; 3 
373 $516 5 3 
$e 213 5 '++ : 
75 2214 5 ! If we fall out of the above loop, there were no records : 
376 2215 5 ! in the current module which satsified the access : 
377 2216 5 ' criteria. Set up so that when we look at the next : 
378 2217 § ! module we will begin at the first record. 5 
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LAST_PTR = 0; 
END; 


'44¢ 
: There is none of the kind of storage we are looking for so 
loop back to consider the next module. 


END; 
le 
} The current module is not in the RST so loop back to consider the next one. 


MC_PTR = .MC_PTR CMC_NEXT); 
END; 


! Pass back the desired pointer having first stored it away in our OWN storage 
so that we can pick it up on the next call. 


PTR = .C 


T . CURRENT; 
RETURN. CURRENT SAT PTR); 


-PSECT _PATSOWN,NOEXE,2 
00000 LAST_PTR: 

-BLKB 4 
00004 MC_PTR: :BLKB 4 


.PSECT _PATSCODE,NOWRT,2 


007C 00000 GET_NXi_SAT_LVT: 
-WORD Save R2,R3.R4,R5,R6 


56 00000000" EF 9E 00002 MOVAB MC_PTR, 
54 04 AC 00 00009 MOVL  ACCESS-FLAG, R4 
OF 12 0000D BNEQ «1$ 
66 000000006 EF DO 0000F MOVL § PAT$SGL_MC_PTR, MC_PTR 
FC AG D4 00016 CLRL —LAST_PTR 
50 08 AC 00 00019 MOVL  RECORD_SIZE, RO 
04 0001D RET 
51 66 DO OOO1E 1$: MOVL MC_PTR, R1 
08 if 00021 BNEQ 
FC AG DS 00023 TSTL _ LAST_PTR 
03 12 00026 BNEQ  2$ 
008 31 00028 BRW 16$ 
52 000000006 EF DO 000 ; 28: MOVL.  PATSGL_RST_BEGN, R2 
51 2 CO 000 ADDL2 Re, R 
03 Al 01 E1 00035 BBC #1, 3(R1), 138 
03 4 D1 0003A CMPL =—oRG, 3 
05 12 0003p BNEQ 
03 Al 06 £0 0003F BBS #6, 3(R1), 148 
OA 08 AC D1 00044 38: CMPL = RECORD_SIZE, #10 
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GLOBAL ROUTINE PATSSET_MODULE (MODULE_TO_SET) : NOVALUE = 


'44 
! Functional Description: 


742 Page 
SR 1 


jo 3 
H.SRCJPATREB.B32; ) 


v4. 1 
:CPAT (5 


Add the symbols for a given List of modules, or /ALL modules to the RST. 
Formal Parameters: 
MODULE_TO_SET <=an MC pointer to the module we are 
to add, or 0 => use the command 
argument List or do SET /ALL. 
Implicit Inputs: 
The ezeress tee List contains MC_PTRs to the indicated modules. 
If "SET MODULE /ALL'' was specified, then the Module Chain points to 
all the modules to set. 
Implicit Outputs: 
The modules are added. 
Return Value: 
NOVALUE = This routine SIGNALS out if an error occurs. 
Side Effects: 
The symbols for the indicated modules get added to the RST. If they 


are already there, PATCH merely returns. 
If an error occurs, a SIGNAL and UNWIND are performed. 


DO_SAT_SORT, 
DO-LVT-SORT, 
POT 


Flags to control sorting. 


' Used to scan the org List. 

! POINTER TO CURRENT MODULE CHAIN ENTRY 
! Each arg is an MC pointer. 

' We look at the storage descriptor 

' associated with a module after we 

' try to add it to see if SAT or LVT 

! storage was allocated. 
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ee 

! Assume that we won't have to (re)sort the LVT and SAT = an added module doesn't 
! necessarily add anything to the LVT or SAT. 

DO_SAT_SORT = FALSE; 
DO_LVT_SORT = FALSE; 
MC"CHAIN = 0; 


lee 


cc 
j 
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: 460 98 ! If we were given a specific module to_set, then we lyst assume that that is 

> 461 99 i the MC_PTR we want. Otherwise either DBGSGL HEAD_LST points to an ar 

; re 4 } List of MC_PTRs, or it is 0, which means that we are to try to set ALL modules. 

> 464 o¢ IF (.MODULE_TO_SET EQL 0) 

> 465 0 § THEN 

; 466 2304 IF ((POINTER = .PATSGL_HEAD_LST) EQL 0) 

> 467 2305 § THEN 

; 468 2306 MC_PTR = MC_CHAIN = .PATSGL_MC_PTR; 

: 469 2307 2 

; 470 2308 2 !++ ; 

: 467) $39? : Loop thru the arg List or module chain trying to add the indicated modules to 

> 472 310 ! the RST. Note that we skip over the MC reserved for globals if the MC chain 

; 473 2311 ! is being used. 

> 474 seig 

: 475 2313 2 !<- 

; 476 2314 ¢ REPEAT 

: 477 2315 BEGIN 

: 478 2316 3 l++ 

; 479 2317 3 ! PICK UP A POINTER TO THE MODULE TO BE SET. 

; 480 2318 3 len 

: 481 2319 4&4 IF (.MC_CHAIN NEQ 0) 

: 482 2320 3 THEN 

; 483 2321 4 BEGIN 

> 484 2322 4 ++ 

; 485 23235 4 ' THE NEXT MODULE COMES FROM THE MODULE CHAIN. CHECK FOR END 

: cee $35¢ ? OF THE CHAIN. This also skips the MC for globals. 

; 488 2326 5 IF ((MC_PTR = .MC_PTRCMC_NEXT]) EQL 0) 

> 489 2327 4 TH 

: 490 2328 4 EXITLOOP; 

; 491 2329 4 END 

: 492 2330 3 ELSE 

; 493 2331 3 14+ 

; 494 2332 3 ! THE NEXT MODULE IS EITHER ONE SPECIFICALLY REQUESTED OR 

3 ‘ee Saez : : COMES FROM THE COMMAND ARGUMENT LIST. 

3; 497 2335 4 IF ((MC_PTR = .MODULE_TO_SET) EQL 0) 

: 498 2336 3 THEN 

; 499 2337 3 '++ 

; $00 2338 3 ' EACH ARGUMENT IS A POINTER TO THE MC RECORD FOR 

$ fe 2339 3 ' THE MODULE TO BE SET. 

; 208 2340 len 

; 503 3341 MC_PTR = .LIST_ELEM_EXP1(. POINTER); 

: Sus 342 

: 505 2343 : !++ 

3 308 Stee ; : NOW CHECK THAT THE MODULE IS NOT ALREADY IN THE RST. 

; 508 346 4 if ( NOT .MC_PTRCMC_IN_RST)) 

: 509 ef 3 THEN 

; 510 48 4 BEGIN 

s STi 349 4 lee he 

; 512 350 4 ' Simply add the module the same way that the RST init 

: 518 32) ? } procedure would. 

: 515 358 5 iF (PATSADD_MODULE( .MC_PTR )) 

s 5$%6 54 4 THEN 


. oe peipaaliadades ad poemesnp ote peanaibcnab ite 3 


----_- - = - - ——-- -- SO + — — - - - - co 


((POINTER = .LIST_ELEM_FLINK(.POINTER)) EQL 0) 


EXITLOOP; 
END; 


ee 


! If any SAT/LVT storage was allocated, then corresponding records have been 
| added so we have to re-sort the structure. 
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PATREB 1hese -1984 7:05:57 VAX-11 Bliss-32 
V04-000 1228 8-138e Mee ee UT KSuMGMASTER. 
; 517 ? BEGIN 
: 18 8 
: 19 5 i note that the module has been added, and see 
3 H 0 58 i if any LVT and/or SAT storage was allocated 
: é 1 4 me for it to avoid an unnecessary SORT Later on. 
ES § 61 ; MC_PTR CMC_IN_RST) = TRUE; 
: 526 6¢ MC”PTR MCL IS-DYING] = FALSE; 
; 525 63 5 STORE _DESC™= MC_PTR CMC_SAT_STORAGE]; 
; 526 64 6 IF (.STORE_DESC CSTOR_BEGIN_RST] NEQ 0) 
3 Ser 65 5 THEN 
s $26 66 2 DO_SAT_SORT = TRUE; 
: 529 67 STORE DESC7= MC_PTR CMC_LVT_STORAGE]; 
; 330 § 68 6 (.STORE_DESC CSTOR_BEGIN_RSTJ NEQ 0) 
3 Sal 369 5 THEN 
; 238 370 5 DO_LVT_SORT = TRUE; 
3; 35 371 5 END 
: 534 36 4 ELSE 
s 5355 2373 & '++ 
; 536 2374 & ! IF A LIST OF MODULES IS BEING SET, THIS MESSAGE MUST 
s 537 2375 4 ! BE INFORMATIONAL BECAUSE A "RETURN" MUST BE EXECUTED 
; 538 2376 & ' FROM HERE TO DO THE POST-MODULE ‘'SET’’ CLEANUP. 
; 539 2377 4 | OTHERWISE A SIGNAL CAN BE PERFORMED HERE AND OuT OF 
; 540 2378 4 ' THE ‘'SET SCOPE’ COMMAND AS WELL. BY SUBTRACTING 
3; 541 2379 & ' ONE FROM THE INFORMATION ERROR CODE, PATCH CREATES 
; ong 2380 4 !' A WARNING CODE. 
;s 34 2381 4 lon 
> 544 2382 5 iF (.MODULE_TO_SET NEQ 0) 
s $45 2383 4 TH 
; 546 2384 4 SIGNAL (PAT$_MODNOTADD-1, 1, MC_PTRCMC_NAME_CS)) 
s 367 2385 4 ELSE 
; 548 2386 4 SIGNAL(PATS_MODNOTADD, 1, MC_PTREMC_NAME_CSJ); 
: 549 2387 3 END; 
; $50 2388 3 
s 551 2389 3 '++ 
s fe 2390 3 ' Go back and look at the next arg if there is one. 
s 335 2391 3 len 
: 554 2392 4 if (.MODULE_TO_SET NEQ 0) 
: 555 2393 3 THEN 
; 556 2394 3 ed 
s $37 2395 3 ' THERE IS NEVER A NEXT ONE IF ONLY ONE WAS SPECIFIED. 
: 558 2396 3 !—= 
; 559 2397 3 EXITLOOP; 
: 560 2398 
3 61 +444 'e¢ 
; 6¢ stot 3 A NEXT ONE MUST COME FROM THE MC CHAIN OR THE ARG LIST. 
; 564 g40e 4 if (.MC_CHAIN EQL 0) 
: 65 403 3 THEN 
; 366 2404 & 
; 67 
: 68 4 
s 69 
: 70 
: 71 
: 72 
; 573 2 


ee ee ee et ee ed ee et et el ee me el eel el 
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; 574 tig le= 
: $75 41 iF (.DO_SAT_SORT) 
: 576 414 2 THEN 
: 577 415 ATSSORT_SA_LVT( PATSGET_NXT_SAT ); 
: 578 416 IF (.D0 {vt _SORTY 
: §79 417 2 TH 
: §80 418 ‘ PATSSORT_SA_LVT( PATSGET_NXT_LVT ); 
s 581 419 
: 582 2420 1 END; 
O7FC 00000 SENTRY PATSSET_ MODULE, Save R2,R3,R4,R5,R6,R7,RB,- ; 
5A 00000000v EF 9E 00002 MOVAB PATS$SORT_SA VT, R10 : 
59 000000006 a 9€ 00009 MOVAB PATSGL _RST_BEGN, R9 : 
7 7¢€ 00010 CLROQ D0 _LVT~SORT : 
56 D4 00012 CLRL C~CHAIN : 
55 04 AC DO 00014 MOVL MODULE. TO_SET, RS ; 
13 12 00018 BNEQ ~=«'1$ ; 
54 000000006 EF 00 OOO1A MOVL § PATSGL_HEAD_LST, POINTER : 
OA if 00021 BNEQ 1$ : 
56 000000006 EF DO 00023 MOVL PATSGL MC PIR, MC_CHAIN : 
52 6 DO O002A MOVL CHAIN, C_PTR : 
56 D3 0002D 1$: TSTL MCT CHAIN : 
oc 1 000¢F BEQL $ : 
50 52 69 ci 00031 ADDL3 PATSGL_RST_BEGN, MC_PTR, RO : 
52 60 3C 00035 MOVZWL (RO), AC_PTR : 
OC 12 00038 BNEQ  3$ : 
0080 31 OOO03A BRW 10$ : 
52 55 DO 00030 2s: MOVL 5, MC_PTR : 
04 12 00040 BNEQ 3$° ; 
52 04 A& DO 00042 MOVL 4 (POINTER) MC_PTR : 
50 52 69 C1 00046 3$: ADDL3 PATSGL TBEGN, MC_PTR, RO 3 
SE 03 AO 01 £0 0004A BBS #1, 3 5. “8$ ; 
52 DD O004F PUSHL mCP R ; 
000000006 EF 01 FB 00051 CALLS PATSADD_MODULE ; 
2? 50 €9 00058 BLBC Rd : 
50 2 69 (1 00098 ADDL3 iste RST_BEGN, MC_PTR, RO : 
03 AO 02 88 0005F BISB2 : 
03 Ad 40 BF 8A 00063 BICB2 #6 et ; 
53 33 Ag 9E 00068 MOVAB Betas ® ORE _DESC ; 
1 a3 B5 0006C TSTW $540) 's bese $()~ ; 
03 13 O006F BEQL 4$ : 
58 01 pd 00071 MOVL #1, DO_SAT_SORT F 
5 2a AO SE 00074 4S: MOVAB 42(R0) STORE _DESC : 
A3 BS 00078 TSTw (STOR ré_p ; 
30 13 00078 BEQL = BS ; 
57 01 pd 0007D MOVL #1, DO_LVT_SORT : 
2B 11 00080 BRB 8$ ; 
55 d3 0082 5$: TSTL = RS ; 
11 13 00084 BEQL «68 ; 
50 52 69 Ci 00086 ADDL3. PATSGL_RST_BEGN, MC_PTR, RO ; 
0c AO 9F OOOBA PUSHAB 12(RO) : 
01 DD 0008D PUSHL #1 : 


> 
Fl ee = 


PATREB 16-Sep-1984 01:05:57 VAK=11 Bliss=32 V4.0-742 Page 17 PAT 
“V0 00580 1e-sep-1984 3: 93: 144 D1 SKSVMEMAS TERS CPATCH. SRCJPATREB.B32; 1 1% (5) v04 
006D800A ef pp O08F PUSHL 47176202 : 
50 52 69 c 0097 6$ ADDL PATSGL_RST_BEGN, MC_PTR, RO + 2386 
oc AF ip Sonor BURP gg‘ 7 
006D800B 8F DD OO0AD PUSHL #7176203 : 
000000006 00 03 FB 900a6 7$: CALLS #3, LIBS$SIGNAL : 
5 D5 OOOAD 8$: TSTL R5 : 2392 
0¢ if OOOAF BNEQ 10$ : 
G2 tinel gues cm Lome 
54 64 09 0083 r= MOVL (POINTER) , POINTER + 2404 
FF70 31 OOOBA BRW 1$ : 
07 58 £9 OOOBD 108: BLBC DO_SAT SORT, 11$ + 2413 
FE64 CF 9F 000CO PUSHAB PATSGET IN AT + 2615 : R 
és BEB SEES a, GARE EL SERS dagt are 
FE69 CF SF OOOCA PUSHAB PATSGETIN + 2618 
6A 01 FB OOOCE CALLS #1, PATSSORT. SA LVT 3 
04 000D1 12$: RET + 2420 
; Routine Size: 210 bytes, Routine Base: _PATSCODE + 0008 
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GLOBAL ROUTINE PATSCANC_MODULE : NOVALUE = 


ee 

Functional Description: 

i Delete the symbols for a given List of module names from the RST, 

or delete /ALL modules. f the SCOPE is set to a module that is to be 
cancelled, then the SCOPE is also cancelled. 

i Implicit Inputs: 


Context bit if /ALL was specified or not. 
The expression List contains MC_PTRs to the indicated modules. 


i Implicit Outputs: 


i Return Value: 
NOVALUE 
i Side Effects: 
The symbols for che indicated modules are deleted vy the RST. 


If the symbols are not set, PATCH merely returns. f an error occurs, 
then a SIGNAL and UNWIND are performed. 


! 
i 
' 
! 
! 
! 
' 
' 
! 
' 
! 
none. 
' 
' 
' 
{ 
' 
' 
! 
! 
! 
i] 


BEGIN 

LOCAL 
MC_CHAIN : REF MC_RECORD, ! Pointer to scan module chain 
POINTER, ' Used to scan the arg list. 
SHRINK_LVT, ! Number of LVT records freed up. 
SHRINK_SAT, ! Number of SAT records freed up. 
MC_PTR : REF MC_RECORD; 

bad 


: If the module names come from the command argument List, then check the 
: consistenc of the List. Otherwise, initialize in preparation for the 
CANCEL MODULE /ALL** command. 


MC_CHAIN = 0; 
LF CCPOINTER = .PATSGL_HEAD_LST) EQL 0) 
MC_PTR = MC_CHAIN = .PATSGL_MC_PTR; 


ee 

! To avoid having to shrink the SAT or LVT when unnecessary, initialize 

! the flags (actually, counts) which indicate whether or not any records have 
! been removed from the corresponding data structures. 


SHRINK_LVT = 0; 
SHRINK~SAT = 0: 


ee 


CJPATREB.B32; 
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Loop thru the arg List trying to delete the indicated modules from the RST. 
REPEAT 


9 | PAT 
) 


— 
Oo 
- 


N 
IF (.MC_CHAIN NEQ 0) 
THEN 

BEGIN 


e+ 
' The next module name comes from the module chain. Check 
' for the end of the chain. 


IF ((MC_PTR = .MC_PTRCMC_NEXTJ) EQL 0) 


EXITLOOP; 
END 


e+ 
i The next module name comes from the command argument List. 


ELSE 


PIPPI SSISISIVIVI 


AAPA AAOOW 
WN —OOONOUSWN— 


ee 

i Pick up the first onary in the CSP pathname vector 
i since that is the module name and is all we have 

' to look at to see if the CSP ‘points into’ the 

im module we have just cancelled. 
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496 i Each argument is a pointer to the MC record for the module 
66 497 ' to be deleted. 
66 498 oo 
66 499 MC_PTR = .LIST_ELEM_EXP1(. POINTER); 
66 500 
664 501 l++ 
66 206 ! Don't t try to delete one which is not _stready there, 
$96 $67 ! and don't complain if we are asked t 
668 505 IF (.MC_PTR CMC_IN_RST)) 
506 THEN 
670 507 BEGIN 
671 508 l++ 
67 509 ' Jero out all LVT or SAT records which correspond 
of? 319 to NT records which we are about to release. 
675 21g SHRINK_ SAT = .SHRINK_SAT + 
676 51 DEL _SAT tyre MC_PTR CMC_NT_STORAGE], PATSGET_NXT_SAT ); 
677 514 SHRINK_LVT =".SHRINK_LVT™+ 
on 313 DELE_SAT _LvTt MC_ PTR CMC_NT_STORAGE], PATSGET_NXT_LVT ); 
680 517 
681 518 'e¢ 
682 519 i If we have ust cancelled a module into which the current 
683 520 ! SCOPE is pointing, we cancel that scope so as th let the 
ose 25) user know it is useless. 
686 358 IF (.PATSGL_CSP_PTR NEQA 0) 
687 524 THEN 
688 525 BEGIN 
689 526 LOCAL 
690 3 i CS_PTR : CS_POINTER; 
529 
530 
; 1 
338 
534 


| 
j 
| 
| 
| 
J 
| 
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—PATR 16-Sep-1984 01:05:57 VAX=11 Bliss-32_V4.0-742 Page 20 PAT 
“500 122908- 1382 03 03 227 DISKSVMSMASTER: CPATCH.SRCIPATREB.B32:1 >, (6) | V04 
698 = ,PAT$GL_CSP_PTR(O); 
$99 IF~(CHSEQL(.CS_PTRCOT, CS_PTRC1J, .MC_PTRCMC_NAME_CSJ, 
700 = MC_PTROMC_NAME_ADBR])) 
20 PATSSAVE_SCOPE (FALSE); ' Cancel the SCOPE 
704 1+4 : 


! Note that the module is about to be cancelled. We can’t turn 
: off MC_IN_RST yet because the access functions still use that 
! flag afd there are still valid records in the storage 
associated with this module. 


MC_PTR CMC_IS_DYING] = TRUE; 


'e¢ 

! Unlink all NT records for this module from the hash chains 
! they are currently in, and release the vector storage taken 
by them, 


UNLINK_NT_RECS( .MC_PTR ); 
PATSVS_FREE MC_PTR™CMC_NT_STORAGE] ); 


'ee 
Check if there is another module name. 


iF (-MC_CHAIN EQL 0) 
IF ((POINTER = .LIST_ELEM_FLINK(.POINTER)) EQL 0) 


EXITLOOP; 
END; 
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lee 
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SN NNN NS NNN NSS 
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eee tee see ee ee ie ee eee ee ee eee eee ee eee eee ie ie ie ie eee ie 1 10 10 10 10 10 10 10 tee te te te te 
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3 ! For each module to be cancelled, we still have associated SAT/LVT storage 
3 ! which preseoty contains records that correspond to other modules. We must 
3 , ! move these to safer ground and then actually free up the storage. 
7 if (.SHRINK_SAT NEQ 0) 
7 THEN 
3 7 EMPTY SAT_LVT( PATSGET_NXT_SAT ); 
3 7 IF (.SHRINK_LYT NEQ 0) 
739 7 THEN 
740 ? EMPTY_SAT_LVT( PATSGET_NXT_LVT ); 
ree 7 eo) 
mer : ALL modules previously _DYING are now dead. 
745 8 MC_PTR = .PATSGL_MC_PTR; 
746 8 WHTLE( (MC_PTR =".MC_PTR CMC_NEXT]) NEQ 0 ) 
747 8 0 
748 8 BEGIN 
749 8 IF (.MC_PTR CMC_IS_DYING)) 
750 : THEN 
751 !e¢ 
be 3 Once _IN_RST is FALSE almost no other flags are believed. 
754 9 MC_PTR CMC_IN_RST) = FALSE; 


| K § 
| PATREB 16-Sep-1984 01:05:57  VAK=11 Bliss-32 V4.0-742 Page 21 PAT 
y04eH80 1a-8ep-19 4 93:93:27 DISKSVMSMASTER: CPATCH. SRCIJPATREB.B32:1> (3 v04 
s 755 9 END; 3 7 
; Fe? $33 ; END; 3 ! 
3 1 
2 7 
i 
OFFC 00000 ~ ENTRY PATSEANC MODULE, Save R2,R3,R4,R5,R6,R7,RB,-; 2421 : } 
5B 000000006 EF 9€ 0000 MOVAB PATS$GL_MC_PTR, R11 : 71 
SA FE49 CF 9E 0000 MOVAB PATSGET_NRT_SAT, R10 : 3 7 
59 000000006 gE 9E 88005 MOVAB PATSGL_RST_BEGN, R9 : $7 
6 D4 0001 CLRL MC_CHA + 2464 $7 
55 000000006 EF D0 00017 MOVL §§ PATSGL_HEAD_LST, POINTER > 2465 | 33 
06 12 OOO1E BNEQ : 37 
56 6B 00 000 9 MOVL PAT$GL_MC_PTR, MC_CHAIN + 2467) 3 1 
54 56 00 000 MOVL MC_CHAIN, MC_PTR ; 3 7 
57 f 000 1$: CLROQ SHRINK _SAT 3 2675) 37 
56 D5 00028 2$: TSTL MC_CHAIN 3 2482 | 37 
0c 13 O002A BEQL $ 3 | $7 
50 54 69 ci 0002C ADDL3 PATSGL_RST_BEGN, MC_PTR, RO : 2489. : 1 
54 60 3C 00030 MOV2WL (RO), AC_PTR : : 1 
07 12 00033 BNEQ $ 3 | s 3 
sae 31 00035 BRW $ : 2491) 3 7 
54 04 AS DO 00038 3$ MOVL 4(POINTER), MC_PTR 3 2499 31 
50 54 69 C1 0003C 4$ ADDL3 PATS$GL_RST_BEGN, MC_PTR, RO ; 2505) : 1 
6D 03 Ad 01 €1 00040 BBC #1, 3(RO),~6$ 3 3% 
5A DD 00045 PUSHL R10 : 2513. : 1 
1¢ AO 9F 00047 PUSHAB 28(RO) 3 31 
00000000v gS 02 FB OO04A CALLS #2, DELE_SAT_LVT 3 37 
7 50 ¢cO 00051 ADDL2 = RO K_SAT 3 37 
OF AA 9F 00054 PUSHAB ATSGET_NXT_LVT > 2515) : 1 
50 54 69 C1 00057 ADDL3 PATSGL_RST_BEGN, MC_PTR, RO 5 | 37 
1¢ AO 9F 00058 PUSHAB 28(RO) : 31 
00000000v_ EF 02 FB OO0SE CALLS #2, DELE_SAT_LVT : $7 
58 50 CO 00065 ADDL2 SHRIAK_L g $7 
50 000000006 _ EF 09 00068 MOVL PATSGL_CSP~PTR, RO 3 2523) 2.3 
21 13 O006F BEQL 5$ : 3; 7 
51 60 00 00071 MOVL (RO), CS_PTR 3 2535 :1 
53 61 9A 00074 pity PTR), R3 ; 2536. . 7 
50 54 69 C1 00077 ADDL PATSGL_RST_BEGN, MC_PTR, RO : : 1 
52 0c AO GSA 00078 MOVZBL 1¢(RO) » R2 : 3 7 
52 00 01 al 53 2D 0007F CMPCS , 1(CS_PTR), #0, R2, 13(RO) 3 2537) : 1 
Op Ao 00085 $ | 31 
9 12 00087 BNEQ 3 $7 
E D4 00089 CLRL -(SP : 2539 s 
00000000G_ EF 01 FB Bn088 CALL #1, PATSSAVE_SCOPE 3 ; 1 
50 4 69 C1 00092 5$: ADDL PAT So. RST_BEGN, MC_PTR, RO > 2547 | :1 
03 aod 40 F 88 00096 BISB2 #64, 3TRO) 3 | 3 7 
4 DD 00098 PUSHL _PTR 7 2554) 71 
00000000v gf 01 FB 0009D CALL #17 UNLINK_NT_RECS ; = % 
50 4 69 4 OO0A4S ADDL PATSGL_RST-BEGN, MC_PTR, RO : 2555 : 1 
1¢ AO OF SOAS PUSHAB 28(RO) 3 : 1 
00000000G_ EF 9} f Ong CALLS #1, PATSVS_FREE : | 31 
¢ D OB2 68: TSTL MC_CHAIN ; 2560 71 
03 12 00084 BNEQ 7$ F 3 7 
55 65 00 00086 MOVL (POINTER), POINTER 3 2562 : 1 
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; q $ ee } ROUTINE UNLINK_NT_RECS( MC_PTR ) : NOVALUE = 

; 760 336 1 !4+ 

3 re) a4 : } Functional Description: 

s £6 599 1! Remove all NT records for the module indicated by MC_PTR from the 

; 764 600 1! hash chains they are in. This is done in preparation for removing the 

3 Ne et ! indicated module from the RST completely. 

; 767 $608 1 ! Formal Parameters: 

; res 2604 1! 

; 769 $903 1! MC_PTR An RST pointer to the MC entry for 

; 770 06 1! the module we are to unlink NTs for. 

; @e 2607 1! 

s 77 2608 1°! Implicit Inputs: 

s 7 2609 1! 

3: 774 2610 1! The NT records for the indicated module are all in contiguous storage 

; ive 261) 1 ! (the so-called ‘‘vector storage’’ for that module), and one can ; 

: 776 soi¢ .s ‘go thru’ this vector and es out the NT records given the data therein. 

s vie 261 1! (Now we use RST_NT_OVERHEAD and the count byte for the associated symbol 

: ere soi ! name = but any ‘contained’ method will do). 

; 780 2616 1 ! Implicit Outputs: 

: 781 2617 1! ’ é 

; 782 2618 1! ALL existing hash chains are correctly re-Llinked, 

3 65 2619 1! bypassing all NTs for the indicated module. 

: «784 2620 1! 

s 7865 2621 1 ! Return Value: 

; 786 2622 1! 

; 787 2625 1! NOVALUE = we make no checks on the given data. 

: 788 2624 1 !e- 
: «4789 2625 1 

; 790 2626 2 BEGIN 

: 791 2627 2 

; re 2628 2 MAP 

; 793 2629 2 MC_PTR : REF MC_RECORD; 
: 794 2630 2 

: 795 2631 2 LOCAL . 
; 796 2632 2 NT_PTR : REF NT_RECORD, ' Pointer we use to go thru the storage 

: 797 2633 2 ' vector of NT records. ; 
; 798 2634 2 NT_VEC_DESC : REF VECT_STORE_DESC; ! We use the MC-contained descriptor of 
; 799 2635 2 ! the vector storage for the indicated NTs. | 
; 800 2636 2 
; 801 seat § '+¢ . te 

: B08 $038 § Pick up the vector storage descriptor for the indicated NT records. 

; 804 2640 2 NT_VEC_DESC = MC_PTR CMC_NT_STORAGE]; 

; 805 2641 

; 806 Sek '++ 

; 807 264 ! The first NT record beg ing in the first byte of the storage vector, and 

; 808 2644 ' the storage ‘marker’ field has been set to the first byte of unallocated 

; 809 soe? ' storage. 

; 810 646 ten 

; «611 647 NT_PTR = .NT_VEC_DESC CSTOR_BEGIN_RSTI; 

; 812 648 

; 813 649 e+ : 

; «4814 2650 2 ! Go thru the storage vector sequentially. 


N 5 
| PATREB 16-Sep-1984 01:05:57 VAX-11 Bliss-32 V4.0-742 Page 24 
, V04- 00 107 808-13be 93:93:20 DISKSVMSMASTER:CPATCH, SRCJPATREB.B32: 1° 3 
; 815 651 \—< 
; HE O26 WHILE( .NT_PTR LSSA .NT_VEC_DESC CSTOR_MARKER] ) 
: 1 6 dO 
; 818 654 BEGIN 
; 819 655 LOCA 
; as 656 BACKWARD _NT : REF NT_RECORD, 
; 821 657 FORWARD_AT : REF NT-RECORD: 
; Bs¢ 658 
; Se 659 e+ 
> 824 2660 ! Pick up the two Links (forward and backward) which indicate where in 
; BS? red the hash chain this NT record is. 
; 859 ge8 BACKWARD_NT = .NT_PTR_CNT_BACKWARD]; 
; 828 664 3 FORWARD_AT = .NT_PTR CNT_FORWARD); 
; 829 2665 3 
; 830 $008 3 ee ee 
>; 831 667 3 ! Unlink the NT record from its hash chain, i.e. Make the forward 
; 832 2668 3 ! pointer of our back NT record point to the one after us. Note that 
; 833 2669 35 ! if our back pointer points back to the hash chain, then we are 
; 834 2670 3 : actually overwriting the RST pernter in that hash chain entry (as we 
; tH sor) ; : want to). This is why NT_FORWARD must be the first 2 bytes of an NT record. 
3 837 2673 3 BACKWARD_NT CNT_FORWARD] = .FORWARD_NT; 
; 838 2674 3 
; 839 2675 3 '++ 
; 840 2676 3 ! If we are not at the end of the hash chain, we must connect up the 
; «841 2677 3 ! hole we are making by unlinking this NT record. 
; 842 2678 3 len 
3 843 2679 4 IF (.FORWARD_NT NEQ 0) 
: 844 2680 3 THEN 
; 845 2681 3 FORWARD_NT CNT_BACKWARD] = .BACKWARD_NT; 
: 846 682 3 
; 847 2683 3 loo 
; 848 2684 3 ! Find the next NT record in the vector by adding the overhead bytes 
3 Ben eH ; (fixed) for each record to the count bytes for the name. 
; 851 2687 3 NT_PTR = .NT_PTR + RST_NT_OVERHEAD + .NT_PTR CNT_NAME_CS); 
; 852 2688 2 END; 
s Go 2689 2 
3; «854 2690 2 !++ 
: 855 2691 2 ! ALL NT records are successfully unlinked. 
; 856 2692 2 !-- 
; 857 2695 1 END; 
003C 00000 UNLINK_NT RECS: 
. WORD Save R2,R3,R4,R5 : 2594 
55 00000000G EF D0 00002 MOVL PATSGL_RST_BEGN, R5 ; 2640 
50 55 04 AC C1 00009 ADDL3 MC_PTR, RS, RO 3 
50 1C c0 0000E DDL2 #28, NT_VEC_DESC ; | 
54 01 ad 3¢ 00011 MOVZWL 1(NT_VEC_DESC), NT_PTR > 2647 
54 05 AO 10 00 ED 4 34 1$ CMPZ7V «#0, #16, S(NT_VEC_BESC), NT_PTR : 2652 | 
¢f 1B 00018 BLEQ 3$ : 
53 54 5 C1 0001D ADDL R5, NT_PTR, R3 : 2663 
| 
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69 bytes, Routine Base: _ 


; Routine Size: 
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ROUTINE EMPTY_SAT_LVT( access_function ) : NOVALUE = 


lee 
' Functional Description: 


Empty out the storage associated with SAT/LVT records 
for all modules in the MC marked MC_IS_DYING, 

(there may be some records therein which belong to another module) 
by moving any valid records therein to storage 

associated with a module that is not being deleted. 

Then release the _DYING storage since the associated modules 

are to be deleted from the RST. 


i Formal Parameters: 


access_function -The address of the function we should call 
to access the indicated SAT/LVT structure. 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

i 

' 

Implicit Inputs: (assumptions) 

: The SAT_RECORD structure is appropriate for moving SAT/LVT 
: records around - i.e. SATs are larger than LVTs = as 
; tong as we use the record_size value returned by the 
: SL_ACCE_INIT call instead of the one associated with 
the SAT record itself. 
Implicit Outputs: 
' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 


The indicated structure is left in the state that LOOKUP_SAT 
and LOOKUP_LVT assume they are in. 


i Routine Value: 
NOVALUE 
i Side Effects: 
i The SAT/LVT records marked for deletion are overwritten 


by valid records; all SAT/LVT storage associated with 
MC_IS_DYING modules is released. 


< 
oO 
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RECORD_SIZE, ! The number of bytes in each record. 
1+ 


well as a REF LVT_RECORD. This pointer is used to sequentially i 
vector storage to pick up non-deleted records. We keep two poin 


is NOT a SAT_POINTER because longword pointers are not easily 
comparable to the NI-pointers we get from storage descriptors. 
other is a ‘real’ SAT_POINTER w 


URRENT, 
CURRENT. SAT_PTR : REF SAT_RECORD, 


on tee ee 


Declare a pointer which is suitable for use as a REF SAT_RECORD as 
to the SAT or LVT record currently under consideration. One, ‘current’, 


ich always corresponds to ‘current’. 
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16-Sep-1984 01:05:57 VAX=-11 Bliss-32 V4.0-742 Page 27 
v04-000 132808-138¢ 3:93:24 DISKSVMSMASTER: PATCH, SRCJPATREB.B32:1> BS 
; 916 2751 NEXT_FREE : REF SAT_RECORD, ! Corresponding to ‘current’ is a pointer wh : 
; 917 $726 ! where the next free SAT/LVT record is. : 
; 918 275 STORE_DESC : REF VECT_STORE_DESC, ! We look at the vector sroroge which is all ; 
; 232 si2e ! for SAT/LVTs for each _DYING module. : 
; 354 2756 $ END_MARKER, ! Maintain a pointer into the vector storage ‘ 
; as¢ e757 e ! says where the last+! record associated ; 
; Fe 2758 § ! with a given module starts. : 
; 924 2759 MC_PTR_ : REF MC_RECORD, ! We scan the MC to pick out all _DYING modu : 
> 925 2760 § MOVED_COUNT; ! Tally up how many records we move. ; 
; 926 2761 : 
: 44 5/06 § ++ ; 
> 928 276 : Set up to access the structure in the mode which we get told of FREE records : 
: 929 2764 2! only, so that we can deduce where to store the still-used ones we have to remove 
: 930 2765 2! from the _DYING storage. While we're at it pick up the size of the indicated 
: 931 2766 2! fixed-size records. 
; 336 2767 2 !-- 
; 9 2768 2 RECORD_SIZE = (.access_function) (SL_ACCE_INIT); 
: 934 2769 2 
3 939 2770 2 !++ 
; 936 2771 2 ! Scan the module chain to pick up all modules marked as _DYING. They are the 
s Par 2772 2! ones that we have to clean-up and release storage for. Qe byrPenely don't ever 
3 oes site § ! look at the MC record allocated to globals since it never _IS_DYING. 
; 940 2775 ¢ MC_PTR = .PATSGL_MC_PTR; 
> 941 2776 3 WHILE( (MC_PTR =~.MC_PTR CMC_NEXT]) NEQ 0 ) 
: 942 2777 200 
> 943 2778 3 BEGIN 
; 944 2779 «3 ++ 
> 945 2780 3 ! We only consider _DYING modules. The _DYING flag is meaningless if 
: 946 2781 3 ' the module is not _IN ‘ 
3; 947 2782 3 leo 
; 948 2783 4 IF (.MC_PTR CMC_IN_RSTJ AND .MC_PTR CMC_IS_DYING]) 
; 949 2784 3 THEN 
; te 2785 4&4 BEGIN 
; 951 2786 4 ++ 
; 952 2787 & ! For each module we have to look at the vector storage 
Z 937 s7ee ? ! which corresponds to the records we are to clean up. 
: 955 2790 6 STORE_DESC = (IF (.access_function EQL PATSGET_NXT_SAT) 
; 956 2791 5 THEN MC_PTR™CMC_SAT_STORAGE] 
s 97 $738 4 ELSE MC_PTR CMC_LVT_STORAGE)); 
; 958 2793 4 
; 959 siee 4 ++ : 
: 960 795 4 ! The records that we want to move are those within the 
; 961 2796 4 ! bounds defined by the _DYING module that are not 
; 2797 4&4 ! already marked for deletion. We go thru this storage 
; © 798 4 ! using and Sonper tne RST-pointers, and build a corresponding 
s He 4 : i SAT-pointer when we want to use it. 
; 966 801 4 END_MARKER = .STORE_DESC CSTOR_MARKER]; 
: 967 802 5 IF TCCURRENT = .STORE_DESC CSTOR_BEGIN_RSTJ) EQL 0) : 
; 968 8035 4 THEN 
; 969 804 4 '++ : 
; 970 805 4 ' No vector storage is allocated for this module 
s 97) 806 4 ' for this kind of storage. Simply fake having 
3 72 807 4 ! come to the end of the storage. 
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CURRENT = .END_MARKER; 
WHILE ( CURRENT LSSA .END_MARKER ) 

BEGIN 

44 


i Construct a SAT pointer to correspond to the 
current place in the storage vector. 


CURRENT_SAT_PTR = .CURRENT + .PATSGL_RST_BEGN; 


'4¢ 
! We only want to deal with records not marked for 
deletion. 


IF (-CURRENT_SAT_PTR CSAT_NT_PTR] NEQ 1) 
BEGIN 
le 
See if there is some place to put this record. 
HF ( (NENT FREE = (.access_function) (SL_ACCE_FREE)) EQL 0) 
BEGIN 
ee 
! This should never happen because the 
! storage for a given module should be 
! big enough to contain all SATs/LVTs for 
' that module. If this is the number of 
' records marked for deletion, any real 
! records left herein should correspond to 
outside records now marked for deletion. 


$FAO TT_OUT(*!/empty free storage error’); 
RETURN; : . 


'ee 
Move the valid record to a safe place. 


CHSMOVE ( .record_size, .CURRENT_SAT_PTR, .NEXT_FREE ); 
ee 
! Go back to look at the next record in the 
current vector storage. 


CURRENT = .CURRENT ¢ -RECORD_SIZE; 
END; 
lee 


i ALL records are now moved to a safe place so we 
' can free up the associated vector storage. 


PATSVS_FREE( .STORE_DESC ); 
END; 


! Go back to consider the next _DYING module 
' Go back and consider the next module in th 


° 9 
CIPATREB.B32-37" (8) 


'e¢ 

i — SAT/LVT storage has been freed up - we still have to leave yet left in 
! order so that the pecese*ag functions can use them. (LOOKUP_SAT/L 

; PATSSORT SA_LVT believes MC_IN_RST which is at this point irae,” but since 
wit work Oks storage descriptor has been zeroed out, the accessing function 
. Ww wor 

te 


PATSSORT_SA_LVT( -access_function ); 


OVWVONOULSWN—O 
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4 


1 END; 
3: See L1:2841 
l expression appears in value-required context 


oO 


Se See ee Se Se ee Se Ge Oe FH St oe 


PSECT _PATSPLIT,NOWRT,NOEXE ,0 


P.AAA: .BYTE 26 ; 


1A 00000 
74 73 20 65 $3 72 66 20 79 74 70 6 21 00001 ASCII \!/empty free storage error\ 3 
72 «26F 6 6F 00010 


72 72 65 20 65 


PSECT _PATSCODE,NOWRT,2 
OFFC 00000 EMPTY_SAT_LVT: 
ORD 


Save R2,R3,R4,R5,R6,R7.RB,R9,R10,R11 : 2694 
SE 04 ¢2 00002 SUBL2 #4, SP : 
7E D4 00005 CLRL = (SP) : 2768 
04 BC 01 FB 00007 CALLS  MACCESS FUNCTION : | 
6E 50 DO 00008 MOVL RO” ; | 
57 000000006 EF DO 0000E VL. PA Atser C PTR. MC_P : 2775 
50 57 000000006 EF C1 00015 1$: ADDL3 PATSct Re BEGN, ac. TOR, RO : 2776) 
57 60 3C 0001D MOVZ2WL (RO), AC_PTR : 
76 13 00020 EQL $ ; 
50 57 000000006 EF C1 90022 ADDL3 PATSGL_RST_BEGN, MC_PTR, RO : 2783 
£6 03 AO 01 £1 0002A BC , 3(RO), 718 : 
E1 03 Ad 06 £1 000¢F BBC (RO). 1$ ; 
51 FCES CF SE 00034 MOVAB PATSGET_NXT_SAT, R1 : 2790 
51 04 AC D1 00039 CMPL _ ACCESS_FUNCTION, R1 : 
06 12 0003D BNEQ § ; 
56 23. AO YE 0003F MOVAB 35(RO), STORE_DESC > 2791 
04 i 00043 BRB 4 ; 
56 2A AO YE 0004 a8: MOVAB 42(RO), STORE_DESC : 2792 
59 05 Ab 3¢ 00049 3$: MOVZWL S(STORE_DESC)> END_MARKER : 2801 
58 01 Ag € 0004D MOVZWL 1(STORE-DESC). CURRENT > 2802. 
0 if 90051 NEQ  4$ ; 
58 59 OD 0053 MOVL END_MARKER, CURRENT ; 2809 
59 58 D1 00056 4$: CMPL § CURRENT, END_MARKER > 2810 
31 1€ 00059 BGEO : ; 
58 EF C1 0058 ADDL3 PATS$GL_RST_BEGN CURRENT, CURRENT_SAT_PTR : 2817 
01 6A B1 0006 CMPW (CURRERT_SAT_PTR), > 2823 
1F 13 00066 BEQL 866 ; 
03 DD 00068 PUSHL > 2829 
gi FB 006A CALLS aAcCess FUNCTION ; 
) 0 pO O006E MOVL 40 NEXT_FREE : 


5A 000000006 
04 ¢ 
| 


PATREB 
v04-000 


000000006 
68 

000000006 

00000000v 


; Routine Size: 163 bytes, 


— 


Routine Base: 


10 12 00 

7E D4 00 

00000000" Fr 9F 00 

EF 2 FB 00 
04 00 

6A 6E 28 00 
58 6— CO 00 
CA 11 00 

56 DD 00 

EF 01 FB 00 
FF7D 31 00 

04 ac ODD 8 

EF 01 FB 00 
04 00 


_PATSCODE + 02E4 
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5$ 3 
=(SP) ; 2841 
P.AAA : 
#2, PATSFAO_OUT : 2831 
RECORD_SIZE, (CURRENT_SAT_PTR), (NEXT_FREE) : 2848 
RECORD_SIZE, CURRENT : 2855 
4$ ; 2810 
STORE_DESC 3; 2862. 
#1, PATSVS_FREE ; 
1$ 3; 2776. 
ACCESS_FUNCTION > 2873 
#1, PATSSORT_SA_LVT ; 
; 2875. 


v 
> 
+ 


i ee Oe Oe Oe Oe Oe Oe Oe HOt Oe Oe Oe Oe OH Oe HOH He SHO H HOH Re Oe Oe Oe Oe Oe Oe Oe Oe Se OH Oe Oe Be Oe Be Oe Se Se Se Se Se SESH SH Se Seer HSH SH oe 


earees 
| V04-000 
; 104 87 
3 1908 B79 
3: 1044 578 
: 1045 87 
3 rg J 880 
3; 104 +} 
3; 1048 Hf 
; 1049 88 
; 1050 884 
; 1051 885 
r 1926 ty, 
: 192 88 
3; 1054 885 
: 1055 5850 
3; 1056 890 
3; 1057 $09) 
; 1058 44 
3; 1059 289 
; 1060 2894 
: 1061 2895 
5 1O98 2896 
; 106 2897 
3; 1064 2898 
3; 1065 2899 
; 1066 2900 
3: 1067 2901 
; 1068 $308 
3; 1069 290 
: 1070 2904 
; 1071 2905 
3 1076 2906 
3: 107 2907 
3 1074 2908 
3; 1075 2909 
3; 1076 2910 
3; 1077 2911 
; 1078 $aig 
3; 1079 291 
; 1080 2914 
: 1081 2915 
: OR 2916 
3; 108 2917 
: 1084 2918 
: 1085 919 
3; 1086 920 
: 1087 921 
; 1088 958 
: 1089 9 
; 1090 924 
3; 1091 925 
3 1036 926 
3; 109 927 
3: 1094 928 
; 1095 929 
: 1096 930 
3; 1097 2931 
; 1098 2932 
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GLOBAL ROUTINE PATSSORT_SA_LVT( ACCESS_FUNCTION ) 


H 6 
16-Sep-1984 O: 5:57 VAX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:52:44 DISKSVMS 


: NOVALUE = 


lee 


BEGIN 
LABEL 
INIT_LOOP, 
SORT_LOOP; 
LOCAL 
MC_PTR : REF MC_RECORD : Current module pointer 
STORE _DESC : REF VECT STORE_DESC, Storage within the current module 
' 


Functional Description: 
This routine is - eeemney inefficient, (shell) sort 
suitable to sort either the LVT or the SAT into ascending order. 
It is necessary because access to the LVT or SAT assumes that 
it has been done. 

Formal Parameters: 


ACCESS_FUNCTION =-The function which must be called to 
gain sequential access to the SAT or LVT. 


Implicit Inputs: (assumptions) 
SATS/LVTS are accessed via tgoquer¢ pointers, vector 
storage descriptors contain RS!l-pointers, and CHS$MOVE 
works with the same kind of pointer as SAT_POINTER does. 


The SAT_RECORD structure is appropriate for either type of 
vector providing that we only use the _NT_PTR and _LB fields. 


A temporary SAT record is large enough to contain an LVT record. 
The sort is on the _LB field, which corresponds to the _VALUE 


field in LVT records. The comparison is UNSIGNED. 
Implicit Outputs: 
None. 
Routine Value: 
NOVALUE 
Side Effects: 
The SAT/LVT vector is sorted into ascending order. 
This routine knows the difference between RST pointers and ‘real’ 


pointers. (The former are stored in VECT_STORE_DESCS and the Latter 
are used to reference SAT/LVT structures. 


R : REF MC_RECOR 


NXT_MT_PT CORD ' Pointer to next module 
NXT“STORE_DESC : REF VECT_STORE_DESC, 


l - Page 3 
MASTER: CPATCH.SRCJPATREB.B32;1 (9) 


! Storage within the next module 
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X-11 Bliss-32 v4.0-742 Pa 32 | PAT 
SKSVMSMASTER:CPATCH.SRCIPATREB.B32:1> (9) _ v04 
SAT_FLAG 1=SAT, O=LVT SORT 
ELEMENT §1 T 
REC_PTR 


SIZE 
: REF SAT_RECORD; 


! The number of bytes in a SAT/LVT record. 
' Declare a pointer which is suitable for us 

! a REF SAT_RECORD as well as a REF LVT_RECO 

' This pointer is used to sequentially go th 

! the indicated vector to do the sort. 


ee 
! The (shell) sort works by going thru the vector sequentially, considering 


! each element, finding the minimum of those which are left, and swapping 
' this minimum with the current one if such a minimum can be found. 


! MIN_PTR points to the smallest one of those 
! TMP_PTR is used to deduce what MIN_PTR should be. 


i Set up to begin accessing the LVT or SAT. 


ELEMENT SIZE = (.ACCESS_FUNCTION)( SL_ACCE_INIT ); 
SAT FLAG = .ACCESS FUNCTION EQL PATSGET_NXT_SAT; 
Mebit = .PATSGL_MC_PTR; 


INIT_LOOP: 
BEGIN 
lee 
Check for the end of the module chain. 


if (.MC_PTR EQL 0) 
THEN 


' 
! 
' 
: 
REC_PTR points to the record currently under consideration. 
' 
' 


'e¢ 
!' The SAT/LVT structure is completely empty. This is not a 
' sort error. 


RETURN( TRUE); 


e+ 
! The current module is to be ignored if the user has not brought it 
! into the RST. 


iF NOT .MC_PTRIMC_IN_RST] 
THEN 


Pee Se Se See Oe ee we Oe Oe Oe HOH He Oe Oe OH Se Se OO SH Oe Oe Se Se Se Se Be Se SESH SH Se Be ae 


GIN 
MC_PTR = .MC_PTRCMC_NEXT); 
LERVE INIT_LOOP; 


ee 
: Check if this module has any of the kind of storage sought. 
No storage is allocated if the ‘BEGIN’ field is null. 


STORE_DESC = (IF .SAT_FLA 
THEN MC7PTRCMC_SAT_STORAGE } 
ELSE MC~PTRCMC~LVT-STORAGE)); 
IF («STORE _DESC STOR_BEGIN_RST) EQ 0) 


BEGIN 
MC_PTR = .MC_PTRCMC_NEXTI; 
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LEAVE INIT_LOOP; 
END; 


e¢ 
} The first 


®EC_PTR =, 
EXITLOOP; 
END; 


SAT/LVT record has been found. Discontinue looping. 
STORE _DESCCSTOR_BEGIN_RST] + .PATSGL_RST_BEGN; 


++ 
! There is at least one record in the logical SAT/LVT structure. Now loop 
: to actually do the sort. 


BEGIN 
LABEL 
MIN_LOOP; 
LOCAL 
NXT_STORE : REF VECT_STORE_DESC, 
TMP_STORE : REF VECT_STORE_DESC, 
FIRST_FLAG, 
NXT_MC_PTR : REF MC_RECORD, 
TMP_MC_PTR : REF MC_RECORD, 
nine : REF SAT_RECORD, 
TMP-PTR; 
TMP_PTR = .REC_PTR - .PATSGL_RST_BEGN; 
MIN_PTR = .REC_PTR; 
'+¢ 
Find the minimum of those left. 
FIRST FLAG = TRUE; 
TMP_MC_PTR = .MC_PTR; 
TMP_STORE = .STORE_DESC; 
REPEAT 
MIN_LOOP: 
BEGIN 
LOCAL 
TMP_SAT_PTR : REF SAT_RECORD; 
IF (,TMP_PTR EQL 0) 
THEN 
BEGIN 
lee 
! The next record must come from the next module in 
! the chain. 


i 


iF CTHP_C,PTR = ,TMP_MC_PTRCMC_NEXT]) EQL 0) 
EXITLOOP; 

1F NOT . TMP_MC_PTRCMC_IN_RST) 
LEAVE MIN_LOOP; 


lee 
! Check if this module has any of the kind of storage 
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' No more for min search 
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IF_ .FIRST_FLAG 
THE 
NXT_PTR = .TMP_PTR; 
144 
Check if a new minimum has been found. 


TMP_SAT_PTR = .TMP_PTR + .PATS$GL_RST_BEGN; 
dF TAP_SAT_PTRCSAT_UB) LSSA .MIN_PTRCSAT_LBJ) 


13 04 ! sought. No storage is allocated if the ‘BEGIN’ field : 
1 be } is null. ; 
i$ 05 TMP_STORE = (IF .SAT_FLAG : 
1 05 THEN THE iC _PTREMC_SAT_ TORAGE ; 
18 05 ELSE TMP_MC_PTRLMC_LVT_STORAGEJ); : 
19 05 IF_(.TMP_STORECLSTOR_BEGIN_RSTJ EQL 0) F 
0 05 THEN : 

1 05 LEAVE MIN 0 i ; 

é TMP_PTR = ,TMP_STORECSTOR_BEGIN_RSTJ; ; 

2 IF [FIRST_FLAG ; 
$¢ THEN : 
5 BEGIN : 

26 NXT_PTR = 0; : 
37 NXT“STORE = .TMP_STORE; : 
8 NXT“MC_PTR = .TMP_MC_PTR; : 

$3 END : 
0 END : 

31 ELSE : 
32 IF NOT (C(TMP_PTR = ,TMP_PTR + .ELEMENT_SIZE) LSSA : 
33 (. TMP_STORECSTOR_MARKER]) ) ; 
THEN ; 

EGIN : 

TMP_PTR = 0; ; 

LEAVE MIN_LOOP; ; 

ELSE 5 


MIN_PTR = .TMP_SAT_PTR; ! A NEW MINIMUM WAS FOUND 
FIRST_FLAG = FALSE; 
be END; ! End of MIN_LOOP 


i If no "NEXT" pointer was found above, there were no more 
records to search. 


if _.FIRST_FLAG 
THEN 
EXITLOOP; 


888 do oo pp aA RAR to $$ 66 0 0 9 + tet ey 


OO O00 00 09 00 09 09 09 09 09 09 SI SI SI SIN SN NNO AAA AAAAOOU 
WN 9 ODNAUE WIN $9 ODNAUE WR $0 OONOAUES WN OCONAOUS WN OOON 


ooooo 
oooo 
Ans 


ee 

! If the minimum has not changed, moving started out as the current 
! one, then we do nothing except go on to the next element in the 

' vector. Otherwise we swap the minimum with the current so that we 
can then go on to the next anyway. 


if (.MIN_PTR NEQ .REC_PTR) 
THEN 


BEGIN 
LOCAL 
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TMP_RECORD : SAT_RECORD; 


ee 
Swap the old current one with the new minimum, 
CHSMOVE( .ELEMENT SIZE, .REC_PTR, TMP_RECORD ); 


CHSMOVE( .ELEMENT-SIZE, .MIN-PTR, .REC_PTR ); 
CHSMOVE ( -ELEMENT-SIZE. TMP_RECORD, .MIN_PTR'); 


lee 
' Ypdate, the ‘‘CURRENT’’ record by effectively going back to the first 
EXT’ record found above. 


iF ((REC_PTR = .NXT_PTR) EQL 0) 
THEN 
MC_PTR = .NXT_MC_PTR; 
STORE_DESC = <NXT_STORE; 
REC PTR = .STORE_BESCCSTOR_BEGIN_RSTI; 
REC_PTR = .REC_PTR + .PATSGL_RST_BEGN; 
END; ! End of outer loop 


t this point the vector is sorted into ascending order. 


RETURN( TRUE) ; 


OFFC 00000 “ENTRY PATSSORT SALLVT, Save R2,R3,R4,R5,RO.R7.RB,-; 2876 
SE 1¢ C2 00002 SUBL2 #28, SP : | 
7E D4 00005 CLRL 0 = (SP) : 2951) 
046 «BC 01 FB 00007 CALLS #1, @ACCESS_FUNCTION : | 
04 AE 50 DO 00008 MOVL RO, ELEMENT_SIZE : 
51 FC66 «CFs SOO9E «O000F MOVAB PATSGET_NXT_SAT, R1 : 2952) 
50 D4 00014 CLRL oR ; 
51 04 AC 01 00016 CMPL § ACCESS_FUNCTION, R1 : 
08 12 000A BNE =-'1$ ; 
D6 0001C INCL ; 
3 50 00 OOOIE 1$: MOVL RO, SAT_FLAG : 
57 000000006 _ EF D0 00021 MOVL § PATSGL_AC_PTR, MC_PTR > 2953. 
01 1 00036 2s: BNEQ 3$ : 2960. 
04 0002A RET ; | 
51 000000006 Ef D0 00¢8 3$: MOVL_ PATSGL_RST_BEGN, R1 : 2972 
57 1 ¢1 000 ADDL3 R11, MC_PTR, RO : 
03 A0 01 £1 00036 BBC #1, 3(RO), 6$ ; | 
OA 6 E9 00038 BLBC_  SAT_FLAG > 2983 | 
57 5 a 99 E ADDL3 R1,~MC_PfR, RO > 2984 
56 23 AO 9E 0004 MOVAB 35(R0)> STORE_DESC ; 
08 11 0046 BRB 5$ ; 
57 1 C1 00048 4$ ADDL3 = R1, MC_PTR, RO : 2985 
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ROUTINE DELE_SAT_LVT( STORE_DESC_ADDR, ACCESS_FUNCTION ) = 


Page 38 
CIPATREB.B32;1> (10). 


—= 
Ww 
Oo 


BE EWN NANWNWAIAIR PPO PUNININONIND 2 2 PO OO OS SH DOOCOOCOOCOCOCO 


AWBWN —OOONO UE WD (OOO NAUE WN — O ODNOAUE WN (OVD ONAUSWR OO ONAUEWWN OO 


'e4¢ 
' Functional Description: 


' 

' 

This routine deletes records from the LVT or_SAT 
: vector it is given a pointer to (VEC_PTR). The 
records that are deleted are those that correspond 
: (point) to an indicated module (STORE_DESC_ADDR). 
: The correspondence is discovered by seeing if the 
: NT PTR in a given LVT/SAT record Lies within the 
RST storage for the NTs for the indicated module. 
! This is faster than actually following the scope 
: chains of the pointed-to NT records to see if 
they belong to the indicated module. 
' 

' 

' 

' 

' 

' 

{ 

' 

' 

J 

' 


Formal Parameters: 


STORE _DESC_ADDR -The address of the storage vector descriptor 
which completely describes the NT storage 
for the indicated module. 

ACCESS_FUNCTION -The name of the function to call to 
access the indicated structure. 


Implicit Inputs: (assumptions) 


We assume that direct comparisons of RST pointers | 

is valid. (i.e. that ‘‘begin < ptr < end" is a valid 
test of whether ‘ptr’ RST=points to somewhere inbetween 
where ‘begin’ and ‘end’ RST-point. 


Implicit Outputs: 
None. 
Routine Value: 


The number of records which are marked for deletion 
in the indicated structure. 


Side Effects: 


Records are ‘deleted’ from the SAT/LVT vector. 
Really, this only means that the indicated records 
are marked with their NT_PTR = 1. More processing 
of this structure is necessary before it is usable, 
but it is better to do this prerese lng only once 

if several modules are to be deleted from the RST. 
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STORE_DESC_ADDR : REF VECT_STORE_DESC; ! Storage descriptor for the NTs. 
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GLOBALS : REF VECT_STORE_DESC, ! We pick up a storage descriptor for GLOBAL 
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PATREB 4 01:05:57 VAX-11 Bliss-32 V4.0-742 39 
v04-000 14- =3007 1382 12: 03327 DISKSVMSMASTER: CPATCH. SRCIPATREB. B32. 79 * 110) 
1357 DELETE_C ! Tally up how many records we delete. 
REC_PTR REF SAT_RECORD, . Declare a ointer which is suitable for us 
! a REF SAT_RECORD as well as a REF LVT_RECO. 
! This pointer is used to sequentially go th 
! the indicated vector. 
NT_BEGINS : REF NT_RECORD, i NT storage RST Limits. 
NTTENDS _: REF NT-RECORD 
GLINTS_BEGIN : REF-NT_RECORD, 
GL_NTS_END : REF NT_RECORD; 


++ 


' 
i we tally up the number of records which we mark 
i _for deletion so that we can return this value. 


DELETE COUNT = 0; 


'e4¢ 
i Pick up the RST Limit peceners of where the associated NT records exist, 
i and where the global NT records exist. 
GLOBALS = PAT$GL_MC_PTR CMC_NT STORAGE); 
NT_BEGINS = .STORE_BESC_ADDR CSTOR BEGIN RSTJ; 
NT_LENDS = “STORED DESC or CSTOR_END eid: 
GL-NTS_BEGI -GLOBACS CSTOR_BEGIN_RST 
D = .GLOBALS CSTOR OFRD. _RSTI; 


lee 
: Go thru the structure sequentially checking for records to mark as deleted. 


(ACCESS FUNCTION) ( SL_ACCE_INIT ); 
HILE( (REC_PTR = (.ACTESS _FUNCTION) ¢ SL_ACCE_RECS )) NEQ O ) 


BEGIN 


“petere the record if it points to an NT record 
i in the storage for the indicated module. 

iF t. REC_PTR CSAT_NT_PTR] GEQA .NT_BEGINS) AND 
a. (,.REC_PTR CSAT_NT_PTR] LSSA .NT_ENDS) 


BEGIN 


i "actuatty, we can only mark it for deletion because it is much 
more efficient to compress the entire structure only once. 
DELETE COUNT = “peLeTe ~fOUNT +1; 

fC C_PTR CSAT _NT_P TR] = 
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ELSE 


'e¢ 
i If that didn't detect something to delete, we must also see if we are 
s deleting global Literals since they must go away too. 


iF. -ACCESS_FUNCTION EQL PATSGET_NXT_LVT) 


IF (.REC_PTR CSAT_NT_PTR] GEQA .GL_NTS BEGIN) AND 
(,REC_PTR CSAT_NT_PTR] LSSA .GC_NTS_E 
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PATREB 

v04-000 

3 1414 47 3 
: 1415 48 4 
+ 1616 49 4 
3 1417 50 4 
: 1418 $2 3 
3: 1419 26 

: 1420 325 

: 1421 3254 '+ 
; 1058 3255 

: 142 3256 

> 1424 3257 

: 1425 $528 

> 1426 259 «1 


50 000000006 


08 
08 
56 60 
55 60 
54 60 
53 60 


; Routine Size: 105 bytes, 


THEN 


END; 


Routine Base: 


um 


007C 00000 DELE_SAT_LVT: 


52 04 00002 
000000006 EF C1 00004 
1¢ CO 00010 
04 AC 00 00013 
01 Al 3C€ 00017 
03 Al 3C 00018 
01 AO 3C OO01F 
03 Ad 3C 00023 
7E D4 00027 
01 FB 00029 

01 DD 00020 1$: 
01 FB 0002F 
50 05 00033 
2— 13 00035 
00 ED 00037 
07 iF Q003C 
00 ED Q003E 
19 1F 00043 

FB37 = CFS SE ~00045 28: 
08 AC Bi QO04A 
DD 12 QO04E 
00 €D 00050 
D6 1F 00055 
00 fp Bob er 
CF 1€ Q005C 

52 06 4484 3 3$: 
01 BO 0006 
C8 11 00063 

52 DO 00065 4$: 
04 00068 


_PATSCODE + 048F 
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' Loop back to consider the next record. 


Return the number of records which we have marked for deletion. 
RETURN(.DELETE_COUNT); 
END; 


Save R2,R3,R4,R5,R6 

LETE_COUNT 

$GL“RST_BEGN, PATSGL_MC_PTR, RO 
GC OBALS 


aa 
i. N 
OBALS), GL_NTS_BEGIN 
OBALS), GL-NTS_END 


@ACCESS_FUNCTION 
, @ACCESS_FUNCTION 
_PTR 


&DRBVBVe i Ww v2 09 
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#0, #16, (REC_PTR). 
#0, #16, (REC_PTR), 
3$ 


PATSGET_NXT_LVT, R1 
ACCESS. FUNCTION, R1 


#0, #16, (REC_PTR), 
#0, #16, (REC_PTR), 


OeLerTe COUNT 
#1, (REC_PTR) 


DELETE_COUNT, RO 


NT_BEGINS 
NT_ENDS 


GL_NTS_BEGIN 
GL_NTS_END 


40 
*(10) 


Ofwunm —- OCfw 


PA 
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v04-000 
> 1428 3260 ND 
> 1429 3261 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
_PATSCODE 1272 NOVEC,NOWRT, 
~PATSOWN 8 NOVEC, WRT, 
“PATSPLIT 27 NOVEC,NOWRT, 
Library Statistics 
File Total 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 


; Information: 1 
; Warnings: 
; Errors: 


COMMAND QUAL IF 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1 


; Size: 1272 code + 35 data bytes 
; Run Time: 0: 

; Elapsed Time: OF: 307. 0 

; Lines/CPU Min: 858 

; Lexemes/CPU-Min: 28298 

; penery Used: 214 pages 

; Compilation Complete 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CPATCH. SRCIJPATREB. B32 ha 


! End of module 


~-EXTRN LIBSSIGNAL 


Attributes 
RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 


Symbols -------- Pages Processing 
Loaded Percent Mapped ime 
4 0 1000 00:01.7 


IERS 
/LIS=LIS$:PATREB/OBJ=OBJ$:PATREB MSRC$:PATREB/UPDATE=(ENHS$:PATREB) 
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